VB Sample Code for converting to parameter field values

Dim valueInfo As PEValueInfo
Dim info As PEParameterFieldInfo
info.StructSize = PE_SIZEOF_PARAMETER_FIELD_INFO
valueInfo.StructSize = PE_SIZEOF_VALUE_INFO
If PEGetNthParameterField(job, 0, info.ValueType, info.DefaultValueSet, info.CurrentValueSet, info.Name, info.Prompt, info.DefaultValue, info.CurrentValue) = 0 Then
    getError
Else
    Select Case info.valueType
Case PE_PF_NUMBER
valueInfo.viNumber = 42.69
Case PE_PF_CURRENCY
valueInfo.viCurrency = 995532.26
Case PE_PF_BOOLEAN
valueInfo.viBoolean = 1
Case PE_PF_STRING
valueInfo.viString = "Later Yesterday" + Chr(0)
Case PE_PF_DATE
valueInfo.viDate(0) = 1997
valueInfo.viDate(1) = 5
valueInfo.viDate(2) = 1
End Select
valueInfo.valueType = info.valueType
If PEConvertVInfoToPFInfo(valueInfo, info.valueType, info.CurrentValue) = 0 Then
getError
Else
info.CurrentValueSet = 1
If PESetNthParameterField(jobnum%, Sections!lstSections.ListIndex, info.ValueType, info.DefaultValueSet, info.CurrentValueSet, info.Name, info.Prompt, info.DefaultValue, info.CurrentValue) = 0 Then
getError
End If
End If
End If


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com